unit Td_transit_List;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDataListForm, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinsDefaultPainters, cxStyles, dxSkinscxPCPainter,
  cxDataStorage, DB, cxDBData, Menus, DBActns,
  StdActns, ActnList, ImgList, cxCheckBox, cxClasses,
  cxGridCustomView, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxGrid, cxLabel, ExtCtrls,
  MisString, cxTextEdit, cxMaskEdit, cxDropDownEdit, StdCtrls,
  cxGridCustomPopupMenu, dxSkinsForm,
  cxNavigator,
  System.Actions, cxCustomData, cxFilter, cxData, cxGridPopupMenu, MemDS,
  DBAccess, Uni, System.ImageList, cxGridLevel, cxButtons;

type
  TfrmTd_Transit_List = class(TfrmBaseDataListForm)
    MainDataGridDBTableViewcode: TcxGridDBColumn;
    MainDataGridDBTableViewname: TcxGridDBColumn;
    MainDataGridDBTableViewexplan: TcxGridDBColumn;
    MainDataSetUtransitid: TIntegerField;
    MainDataSetUcode: TStringField;
    MainDataSetUname: TStringField;
    MainDataSetUexplan: TStringField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  protected    
    function AppendRecord: Boolean; override;
    function EditRecord: Boolean; override;    
  public
    { Public declarations }
  end;

var
  frmTd_Transit_List: TfrmTd_Transit_List;

implementation

uses Td_Transit_Edit;

{$R *.dfm}

function TfrmTd_Transit_List.AppendRecord: Boolean;
begin
  ShowEditForm(frmTd_Transit_Edit, TfrmTd_Transit_Edit, et_New);
  Result := True;
end;

function TfrmTd_Transit_List.EditRecord: Boolean;
begin
  ShowEditForm(frmTd_Transit_Edit, TfrmTd_Transit_Edit, et_Modify);
  Result := True;
end;

procedure TfrmTd_Transit_List.FormCreate(Sender: TObject);
begin
  FKeyField := 'transitid';
  FCodeField := 'code';
  FTableName := 'td_transit';
  inherited;

end;

end.

